home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / dsp / dspgroup / macros.arc / MIN.ASM < prev    next >
Encoding:
Assembly Source File  |  1983-11-17  |  1.4 KB  |  18 lines
  1.  
  2. *                                                                               
  3. *SELECT MINUMUM OF SINGLE A OR B (VARIABLES)                                    
  4. *                                                                               
  5. MIN    $MACRO   A,B                                                             
  6.        LAC  :A:,0        LOAD :A:                                               
  7.        SUB  :B:,0        COMPARE TO :B:                                         
  8.        $VAR L,L1,L2                                                             
  9.        $ASG '$$LAB' TO L.S                                                      
  10.        $ASG L.SV+2 TO L.SV                                                      
  11.        $ASG L.SV-1 TO L1.V                                                      
  12.        $ASG L.SV   TO L2.V                                                      
  13.        BLZ  L$:L1.V:     BRANCH IF :A:<:B:                                      
  14.        LAC  :B:,0        LOAD :B:                                               
  15.        B    L$:L2.V:     TO CONTINUE                                            
  16. L$:L1.V: LAC :A:,0       LOAD :A:                                               
  17. L$:L2.V: EQU $           CONTINUE                                               
  18.        $END